Pohyb mysi & TStatusBar
Otázka od: Dusek Karel
31. 10. 2003 14:52
Pri zapsani do polozky Hintu lze pouzit oddelovac "|". To co je pred nim se
zobrazuje v bublince a to co je za nim lze zobrazit v panelu. Samozrejme lze si
v procedure osetrit i jiny znak a to co je zanim zobrazovat jinde.
>
>
> Ja tam ale chci dat nejaky jiny text, nez je v hintu.
> V.
>
----------
* www.inMail.sk - Vasa emailova adresa na cely zivot ZDARMA
* Mail neobsahuje virusy. Zkontrolovane antivirusom NOD32 (www.eset.sk)
* www.SlovakNET.sk - profesionalny webhosting, domena .SK ZADARMO
* Zoner Media Explorer 5 - stiahnite si pomocnika pre digitalnu fotografiu
(zme.zoner.sk)
Odpovedá: Dusek Karel
31. 10. 2003 11:22
To je snad standartni chovani pri pouziti Hintu.
{ This shows how the OnHint event handler is declared as a public method of the
form }
type
TForm1 = class(TForm)
Button1: TButton;
StatusBar1: TStatusBar;
Edit1: TEdit;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
procedure DisplayHint(Sender: TObject);
end;
var
Form1: TForm1;
implementation
{$R *.xfm}
{ Here is the implementation of the OnHint event handler }
{ It displays the
application's current hint in the status bar }
procedure TForm1.DisplayHint(Sender: TObject);
begin
StatusBar1.SimpleText := GetLongHint(Application.Hint);
end;
{ Here is the form's
OnCreate event handler. }
{ It assign's the application's OnHint event handler at runtime }
{ because the Application is not available in the Object Inspector }
{ at design time }
procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnHint := DisplayHint;
end;
> -----Original Message-----
> From: LUKES Vaclav [mailto:lukes@ans.cz]
> Sent: Friday, October 31, 2003 10:58 AM
> To: delphi-l@clexpert.cz
> Subject: Pohyb mysi & TStatusBar
>
>
> Ahoj,
>
> prosim o radu.
>
> Na formu mam nekolik DBEditu a TStatusBar. Rad bych, kdyz
> mysi najedu na nejaky DBEdit napsal do TStatusBatu nejakou
> hlasku a kdyz se mysi posunu mimo onen DBEdit aby text v
> TStatusBaru zmizel.
>
> Diky
>
> V.
>
>
>
----------
* www.inMail.sk - Vasa emailova adresa na cely zivot ZDARMA
* Mail neobsahuje virusy. Zkontrolovane antivirusom NOD32 (www.eset.sk)
* www.SlovakNET.sk - profesionalny webhosting, domena .SK ZADARMO
* Zoner Media Explorer 5 - stiahnite si pomocnika pre digitalnu fotografiu
(zme.zoner.sk)
Odpovedá: Karol Chupek
31. 10. 2003 11:40
skus pouzit toto..
nadefinuj si vlastnost pre dbedit.Hint a napis do formu tento kod..
public
procedure DisplayHint(Sender: TObject);
procedure TForm1.DisplayHint(Sender: TObject);
begin
StatusBar1.panels[0].text := GetLongHint(Application.Hint);
end;
procedure TFHlavny.FormCreate(Sender: TObject);
begin
Application.OnHint := DisplayHint;
end;
> mysi najedu na nejaky DBEdit napsal do TStatusBatu nejakou
> hlasku a kdyz se mysi posunu mimo onen DBEdit aby text v
> TStatusBaru zmizel.
----------
* www.inMail.sk - Vasa emailova adresa na cely zivot ZDARMA
* Mail neobsahuje virusy. Zkontrolovane antivirusom NOD32 (www.eset.sk)
* www.SlovakNET.sk - profesionalny webhosting, domena .SK ZADARMO
* Zoner Media Explorer 5 - stiahnite si pomocnika pre digitalnu fotografiu
(zme.zoner.sk)
Odpovedá: LUKES Vaclav
31. 10. 2003 12:03
Ja tam ale chci dat nejaky jiny text, nez je v hintu.
V.
-----Original Message-----
From: Dusek Karel [mailto:dusek@mudk.cz]
Sent: Friday, October 31, 2003 11:16 AM
To: delphi-l@clexpert.cz
Subject: Re: Pohyb mysi & TStatusBar
To je snad standartni chovani pri pouziti Hintu.
{ This shows how the OnHint event handler is declared as a public method of the
form }
type
TForm1 = class(TForm)
Button1: TButton;
StatusBar1: TStatusBar;
Edit1: TEdit;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
procedure DisplayHint(Sender: TObject);
end;
var
Form1: TForm1;
implementation
{$R *.xfm}
{ Here is the implementation of the OnHint event handler }
{ It displays the
application's current hint in the status bar }
procedure TForm1.DisplayHint(Sender: TObject);
begin
StatusBar1.SimpleText := GetLongHint(Application.Hint);
end;
{ Here is the form's
OnCreate event handler. }
{ It assign's the application's OnHint event handler at runtime }
{ because the Application is not available in the Object Inspector }
{ at design time }
procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnHint := DisplayHint;
end;
> -----Original Message-----
> From: LUKES Vaclav [mailto:lukes@ans.cz]
> Sent: Friday, October 31, 2003 10:58 AM
> To: delphi-l@clexpert.cz
> Subject: Pohyb mysi & TStatusBar
>
>
> Ahoj,
>
> prosim o radu.
>
> Na formu mam nekolik DBEditu a TStatusBar. Rad bych, kdyz
> mysi najedu na nejaky DBEdit napsal do TStatusBatu nejakou
> hlasku a kdyz se mysi posunu mimo onen DBEdit aby text v
> TStatusBaru zmizel.
>
> Diky
>
> V.
>
>
>
----------
* www.inMail.sk - Vasa emailova adresa na cely zivot ZDARMA
* Mail neobsahuje virusy. Zkontrolovane antivirusom NOD32 (www.eset.sk)
* www.SlovakNET.sk - profesionalny webhosting, domena .SK ZADARMO
* Zoner Media Explorer 5 - stiahnite si pomocnika pre digitalnu fotografiu
(zme.zoner.sk)
Odpovedá: martin.ben@ge.com
31. 10. 2003 15:26
A co tak osetrit udalost OnMouseMove
Martin Ben
-----Original Message-----
From: Dusek Karel [mailto:dusek@mudk.cz]
Pri zapsani do polozky Hintu lze pouzit oddelovac "|". To co je pred nim se
zobrazuje v bublince a to co je za nim lze zobrazit v panelu. Samozrejme lze
si v procedure osetrit i jiny znak a to co je zanim zobrazovat jinde.
>
>
> Ja tam ale chci dat nejaky jiny text, nez je v hintu.
> V.
>
----------
* www.inMail.sk - Vasa emailova adresa na cely zivot ZDARMA
* Mail neobsahuje virusy. Zkontrolovane antivirusom NOD32 (www.eset.sk)
* www.SlovakNET.sk - profesionalny webhosting, domena .SK ZADARMO
* Zoner Media Explorer 5 - stiahnite si pomocnika pre digitalnu fotografiu
(zme.zoner.sk)
Odpovedá: LUKES Vaclav
31. 10. 2003 15:41
Copak o to, ale...
V OnMouseMove:
if ... then
StatusBar.Panels[0].Text := 'AHOJ'
else
StatusBar.Panels[0].Text := '';
Tak nejak ? A co bude v tom IFu ?
V.
-----Original Message-----
From: martin.ben@ge.com [mailto:martin.ben@ge.com]
Sent: Friday, October 31, 2003 3:10 PM
To: delphi-l@clexpert.cz
Subject: Re: Pohyb mysi & TStatusBar
A co tak osetrit udalost OnMouseMove
Martin Ben
-----Original Message-----
From: Dusek Karel [mailto:dusek@mudk.cz]
Pri zapsani do polozky Hintu lze pouzit oddelovac "|". To co je pred nim se
zobrazuje v bublince a to co je za nim lze zobrazit v panelu. Samozrejme lze
si v procedure osetrit i jiny znak a to co je zanim zobrazovat jinde.
>
>
> Ja tam ale chci dat nejaky jiny text, nez je v hintu.
> V.
>
----------
* www.inMail.sk - Vasa emailova adresa na cely zivot ZDARMA
* Mail neobsahuje virusy. Zkontrolovane antivirusom NOD32 (www.eset.sk)
* www.SlovakNET.sk - profesionalny webhosting, domena .SK ZADARMO
* Zoner Media Explorer 5 - stiahnite si pomocnika pre digitalnu fotografiu
(zme.zoner.sk)
Odpovedá: martin.ben@ge.com
31. 10. 2003 16:25
Podle puvodniho dotazu bych to udelal asi tak nejak
//pro udalosti OnMouseMove vsech objektu, u kterych zpravu zobrazit nechces
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y:
Integer);
begin
StatusBar.Panels[0].Text := '';
end;
//pro udalosti OnMouseMove vsech DBEditu, u kterych zpravu zobrazit chces
procedure TForm1.DBEdit1MouseMove(Sender: TObject; Shift: TShiftState; X, Y:
Integer);
begin
StatusBar.Panels[0].Text := TDBEdit(Sender).Field.FieldName;
end;
Martin Ben
-----Original Message-----
From: LUKES Vaclav [mailto:lukes@ans.cz]
Copak o to, ale...
V OnMouseMove:
if ... then
StatusBar.Panels[0].Text := 'AHOJ'
else
StatusBar.Panels[0].Text := '';
Tak nejak ? A co bude v tom IFu ?
V.
-----Original Message-----
From: martin.ben@ge.com [mailto:martin.ben@ge.com]
Sent: Friday, October 31, 2003 3:10 PM
To: delphi-l@clexpert.cz
Subject: Re: Pohyb mysi & TStatusBar
A co tak osetrit udalost OnMouseMove
Martin Ben
-----Original Message-----
From: Dusek Karel [mailto:dusek@mudk.cz]
Pri zapsani do polozky Hintu lze pouzit oddelovac "|". To co je pred nim se
zobrazuje v bublince a to co je za nim lze zobrazit v panelu. Samozrejme lze
si v procedure osetrit i jiny znak a to co je zanim zobrazovat jinde.
>
>
> Ja tam ale chci dat nejaky jiny text, nez je v hintu.
> V.
>
----------
* www.inMail.sk - Vasa emailova adresa na cely zivot ZDARMA
* Mail neobsahuje virusy. Zkontrolovane antivirusom NOD32 (www.eset.sk)
* www.SlovakNET.sk - profesionalny webhosting, domena .SK ZADARMO
* Zoner Media Explorer 5 - stiahnite si pomocnika pre digitalnu fotografiu
(zme.zoner.sk)